home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 016 / egablank.arc / EGABLANK.SCR < prev   
Encoding:
Text File  |  1986-09-10  |  1.1 KB  |  67 lines
  1. n egablank.com
  2. a
  3. jmp 0153    ; jmp initial
  4. dw 0, 0
  5. dw 0, 0
  6. dw 0
  7. cs:    ; newint8:
  8. cmp wo [010a],+00  ; check countdown
  9. jz 0122         ; if zero, donothing
  10. cs:
  11. dec wo [010a]   ; decrement countdown
  12. jnz 0122    ; if not 0, donothing
  13. push ax
  14. mov al,00    ; byte to turn off
  15. call 0142    ; call onoff
  16. pop ax
  17. cs:
  18. jmp far [0102]    ; jmp oldint8
  19. cs:    ; newint9:
  20. cmp wo [010a],+00  ; check countdown
  21. jnz 0136    ; if not 0, ok 
  22. push ax
  23. mov al,20    ; byte to turn on
  24. call 0142    ; call onoff
  25. pop ax
  26. cs:    ; ok:
  27. mov wo [010a],2000  ; set countdown
  28. cs:
  29. jmp far [0106]    ; jmp oldint9
  30. push dx    ; onoff:
  31. push ax
  32. mov dx,03ba    ; reset flip-flop
  33. in al,dx    ; for monochrome
  34. mov dx,03da    ; reset flip-flop
  35. in al,dx    ; for color
  36. mov dx,03c0    ; attribute port
  37. pop ax
  38. out dx,al    ; turn on or off
  39. pop dx
  40. ret
  41. mov ax,3508    ; initial:
  42. int 21
  43. cs:
  44. mov [0102],bx    ;save oldint8
  45. cs:
  46. mov [0104],es
  47. mov dx,010c    ; set newint8
  48. mov ax,2508
  49. int 21
  50. mov ax,3509
  51. int 21
  52. cs:
  53. mov [0106],bx    ; save oldint9
  54. cs:
  55. mov [0108],es
  56. mov dx,0127    ; set newint9
  57. mov ax,2509
  58. int 21
  59. mov dx,0153    ; bytes for resident
  60. int 27    ; terminate
  61.  
  62. r cx
  63. 86
  64. w
  65. q
  66.  
  67.